Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-4/stack_-1.xml

Extensible Markup Language | 1990-04-06 | 4.0 KB | 16 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
    <name>in.0-4</name>
    <id>-1</id>
    <cardCount>34</cardCount>
    <cardID>13805</cardID>
    <listID>19931</listID>
    <cantModify><false /></cantModify>
    <cantDelete><false /></cantDelete>
    <cantAbort><false /></cantAbort>
    <cardSize>
        <width>512</width>
        <height>342</height>
    </cardSize>
    <script>-- ================ Apple Training Support =================
--
-- Project Name: HyperCard 2.0 Product Training
--
-- Apple employees:
-- Design and Development: Jeff Brechlin
-- Team Leader: Mary VanRiper
--
-- Contractors:
-- Design/Animations: Anne Wysocki
-- Programmers: Gabriel Acosta, Kristi Wachter, Anne Wysocki
-- Last modified: April 6, 1990
-- ========================================================


on closeBackground
hide fld "Feedback"
pass closeBackground
end closeBackground


-- This handler dehilites the buttons and hides the feedback on cds.
on resetCd
dehiliteBtns
hideFeedback
end resetCd

-- This GoNext handler hides the feedback fld if it's empty.
on goNext
lock screen
hide fld "feedback"
go next
if fld "feedback" is not empty then show fld "feedback"
unlock screen with wipe left
end goNext

-- This GoPrev handler hides the feedback fld if it's empty.
on goPrev
lock screen
hide fld "feedback"
go prev
if fld "feedback" is not empty then show fld "feedback"
unlock screen with wipe right
end goPrev

--=========  CHECK ANSWERS
-- This handler checks the user's answer on cards that have
-- a single answer.  It shows feedback using "whichIsHilited",
-- "noAns", and "ans", all found in this stack script.
on checkOneRight cdOrBg
hide fld "feedback"
put whichIsHilited() into choice
if choice is "none" then
noAns cdOrBg
else
ans choice,cdOrBg
end if
end checkOneRight

-- This handler checks the user's answer on cards that have
-- more than one answer.  It shows feedback using "noAns" and "ans",
-- which are found in this stack script.
on checkManyRight cdOrBg
put empty into choices
repeat with i=1 to number of cd btns-2
if the hilite of btn ("choice" & i) is true then
put i after choices
end if
end repeat
if choices is fld "answer" then ans 1,cdOrBg
else if length(choices) = 0 then noAns cdOrBg
else if length(choices) = 1 then ans 2,cdOrBg
else ans 3,cdOrBg
end checkManyRight


--=========  RESET BUTTONS
-- This handler resets draggable buttons to their original locations.
on resetBtns
repeat with i = 1 to number of cd btns
moveBtnBack i
end repeat
end resetBtns

-- This handler reset a single draggable btn to its original location.
on moveBtnBack i
set the loc of btn i to line i of cd fld "theLocs"
end moveBtnBack

--=========  BUTTON HILITES
-- This handler returns the number of the hilited button.  If no
-- button is hilited, it returns "none".
function whichIsHilited
repeat with i=1 to number of cd btns
if the hilite of btn i is true then
return i
end if
end repeat
return "none"
end whichIsHilited

-- This handler dehilites all btns, then hilites the target.
-- Used for groups of radio buttons.
on HiliteRadio
dehiliteBtns
set the hilite of the target to true
end HiliteRadio

-- This handler dehilites all btns.
on dehiliteBtns
repeat with i = 1 to number of cd btns
set the hilite of cd btn i to false
end repeat
end dehiliteBtns

--=========  FEEDBACK
-- This handler shows feedback when the user presses the "Done" button
-- before choosing an answer.  The "cdOrBg" argument handles cds that
-- must show feedback in the cd layer (because of cd-layer graphics).
on noAns cdOrBg
lock screen
if cdOrBg contains "c" then
put "Please select an answer first." into cd fld "feedback"
show cd fld "Feedback"
else
put "Please select an answer first." into fld "feedback"
show fld "Feedback"
end if
unlock screen with wipe right
end noAns

-- This handler gives feedback  The "cdOrBg" argument handles cds that
-- must show feedback in the cd layer (because of cd-layer graphics).
on ans num,cdOrBg
lock screen
if cdOrBg contains "c" then
put line num of fld "AllFeed" into cd fld "feedback"
show cd fld "feedback"
else
put line